home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / GAME / ちんちろり〜〜ん.sit / ちんちろり〜〜ん / ちんちろり〜〜ん 0.3 / background_2607.xml next >
Extensible Markup Language  |  1992-12-26  |  9KB  |  144 lines

  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>2607</id>
  5.     <filler1>0</filler1>
  6.     <bitmap>BMAP_4369.pbm</bitmap>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <link rel="stylesheet" type="text/css" href="stylesheet_3162.css" />
  11.     <part>
  12.         <id>2</id>
  13.         <type>button</type>
  14.         <visible> <true /> </visible>
  15.         <reserved5> 0 </reserved5>
  16.         <reserved4> 0 </reserved4>
  17.         <reserved3> 0 </reserved3>
  18.         <reserved2> 0 </reserved2>
  19.         <reserved1> 0 </reserved1>
  20.         <enabled> <true /> </enabled>
  21.         <rect>
  22.             <left>239</left>
  23.             <top>146</top>
  24.             <right>273</right>
  25.             <bottom>180</bottom>
  26.         </rect>
  27.         <style>transparent</style>
  28.         <showName> <false /> </showName>
  29.         <highlight> <false /> </highlight>
  30.         <autoHighlight> <false /> </autoHighlight>
  31.         <sharedHighlight> <true /> </sharedHighlight>
  32.         <family>0</family>
  33.         <titleWidth>0</titleWidth>
  34.         <icon>3001</icon>
  35.         <textAlign>center</textAlign>
  36.         <font>Osaka</font>
  37.         <textSize>12</textSize>
  38.         <textStyle>plain</textStyle>
  39.         <name></name>
  40.         <script>on mouseDownDiceend mouseDown</script>
  41.     </part>
  42.     <part>
  43.         <id>3</id>
  44.         <type>button</type>
  45.         <visible> <true /> </visible>
  46.         <reserved5> 0 </reserved5>
  47.         <reserved4> 0 </reserved4>
  48.         <reserved3> 0 </reserved3>
  49.         <reserved2> 0 </reserved2>
  50.         <reserved1> 0 </reserved1>
  51.         <enabled> <true /> </enabled>
  52.         <rect>
  53.             <left>230</left>
  54.             <top>167</top>
  55.             <right>264</right>
  56.             <bottom>201</bottom>
  57.         </rect>
  58.         <style>transparent</style>
  59.         <showName> <false /> </showName>
  60.         <highlight> <false /> </highlight>
  61.         <autoHighlight> <false /> </autoHighlight>
  62.         <sharedHighlight> <true /> </sharedHighlight>
  63.         <family>0</family>
  64.         <titleWidth>0</titleWidth>
  65.         <icon>3002</icon>
  66.         <textAlign>center</textAlign>
  67.         <font>Osaka</font>
  68.         <textSize>12</textSize>
  69.         <textStyle>plain</textStyle>
  70.         <name></name>
  71.         <script>on mouseDownDiceend mouseDown</script>
  72.     </part>
  73.     <part>
  74.         <id>4</id>
  75.         <type>button</type>
  76.         <visible> <true /> </visible>
  77.         <reserved5> 0 </reserved5>
  78.         <reserved4> 0 </reserved4>
  79.         <reserved3> 0 </reserved3>
  80.         <reserved2> 0 </reserved2>
  81.         <reserved1> 0 </reserved1>
  82.         <enabled> <true /> </enabled>
  83.         <rect>
  84.             <left>217</left>
  85.             <top>154</top>
  86.             <right>251</right>
  87.             <bottom>188</bottom>
  88.         </rect>
  89.         <style>transparent</style>
  90.         <showName> <false /> </showName>
  91.         <highlight> <false /> </highlight>
  92.         <autoHighlight> <false /> </autoHighlight>
  93.         <sharedHighlight> <true /> </sharedHighlight>
  94.         <family>0</family>
  95.         <titleWidth>0</titleWidth>
  96.         <icon>3006</icon>
  97.         <textAlign>center</textAlign>
  98.         <font>Osaka</font>
  99.         <textSize>12</textSize>
  100.         <textStyle>plain</textStyle>
  101.         <name></name>
  102.         <script>on mouseDownDiceend mouseDown</script>
  103.     </part>
  104.     <part>
  105.         <id>6</id>
  106.         <type>field</type>
  107.         <visible> <false /> </visible>
  108.         <dontWrap> <false /> </dontWrap>
  109.         <dontSearch> <false /> </dontSearch>
  110.         <sharedText> <true /> </sharedText>
  111.         <fixedLineHeight> <false /> </fixedLineHeight>
  112.         <autoTab> <false /> </autoTab>
  113.         <lockText> <true /> </lockText>
  114.         <rect>
  115.             <left>436</left>
  116.             <top>106</top>
  117.             <right>464</right>
  118.             <bottom>178</bottom>
  119.         </rect>
  120.         <style>transparent</style>
  121.         <autoSelect> <false /> </autoSelect>
  122.         <showLines> <false /> </showLines>
  123.         <wideMargins> <false /> </wideMargins>
  124.         <multipleLines> <false /> </multipleLines>
  125.         <reservedFamily> 0 </reservedFamily>
  126.         <titleWidth>0</titleWidth>
  127.         <icon>0</icon>
  128.         <textAlign>left</textAlign>
  129.         <font>Osaka</font>
  130.         <textSize>12</textSize>
  131.         <textStyle>plain</textStyle>
  132.         <textHeight>16</textHeight>
  133.         <name>wait</name>
  134.         <script></script>
  135.     </part>
  136.     <content>
  137.         <layer>background</layer>
  138.         <id>6</id>
  139.         <text>3</text>
  140.     </content>
  141.     <name></name>
  142.     <script>--テ雲テ韻テ厩テ‡ï」ソテェUテ‡テ凝②テア竅„テ‡ï」ソテ・テ テ‡ïャづ‡テˆfunction DiceRoll Pname,OyaN,PlyNput bg field "wait" into Wput empty into Shonput cd field "abortMes" into cd field "abortTo"set the cantAbort of this stack to false  -----**テ嘉ァテ叡テ丑テ「ï」ソティテコ**if "Mac " is in Pname then--Macテ‡テεョ窶佚‡ツサテ‡テティWテ‡ïャづ‡ニ’wait until the sound is doneset the loc of bg button 1 to 256,163set the loc of bg button 2 to 247,184set the loc of bg button 3 to 234,171--テゥテケテ‡テクティ窶榲‡竏榲‡テˆput random(2) into Koroput Koro-1 into Krepeat with N=Koro+20 down to 20set the top of bg button 1 to the top of bg button 1 -N*2set the top of bg button 2 to the top of bg button 2 -N*2set the top of bg button 3 to the top of bg button 3 -N*2end repeatwait K*20+10else--テェlテ、窶佚‡テεョ窶佚‡ツサテ‡テテァツソテッWテ‡ï」ソテゥテ甘‡ツ。テ‡ニ津‡ツョテ‡竕 if (item 2 of loc of bg button 1) > 80 then put 2 into Koroelse put 1 into Koroput Koro-1 into K--テ‡ツォテ‡テ津‡窶佚‡テ凝‡ツゥテ‡テテ‡テ陛‡窶コティoテ‡ツオテ‡ニ津‡ツ「テ‡ツサテ‡ツ「テ‡ツゥif the loc of bg button 1 is not within "122,0,377,214"  thenput 1 into Shonput "テ‡窶 テ‡窶 テ‡窶 テ‡窶 テ⑩" into cd field "abortTo"end ifend ifif Shon is empty then--テウテゥテ‡竏†テ‡ツオテ‡ホゥティuテ、窶˜set the loc of bg button 1 to 210+random(12),183+random(12)set the loc of bg button 2 to 251+random(12),154+random(12)set the loc of bg button 3 to 228+random(12),171+random(12)end if--テゥUテ‡テテ‡ツゥテ‡テ暗陰テ泳テ嘉… テ㈶テ⑶テ㈳テ「テ’play "chin2"repeat with K=Koro+2 down to 2put K*5 into KHput K^3 into KVset the icon of bg button 1 to "D" & random (12)set the loc of bg button 1 to random (KH+KH)-KH+216,random (KV+KV)-KV+133wait Wset the icon of bg button 2 to "D" & random (12)set the loc of bg button 2 to random (KH+KH)-KH+267,random (KV+KV)-KV+144wait Wset the icon of bg button 3 to "D" & random (12)set the loc of bg button 3 to random (KH+KH)-KH+234,random (KV+KV)-KV+161--テ‡ツオテ‡テづ‡テ津‡笳甘‡テ津‡テεィテ テウテケテ①テ㈽テ㈻テ ツサテ「竏ォテ‡竕暗‡ツオテ‡テづ‡テ津‡笳甘‡テ’ テ⑿テ‡cテ㈲テ‡テε‡lテ‡テ「テ‡テゥテ‡テ陛㈽テ㈴テ⒀set the cantAbort of this stack to true  -----**テ嘉ァテ叡テ丑**if (item 2 of the loc of bg button 1 < 72)  or (Shon is 1) thenset the icon of bg button 3 to "D" & random (6)set the loc of bg button 3 to 216,163set the icon of bg button 2 to "D" & random (6)set the loc of bg button 2 to 267,174set the icon of bg button 1 to "D" & random (6)set the top of bg button 1 to 250play stopput "テ‡ツオテ‡テづ‡テ津‡笳甘‡テ津‡テヲテ‡テシテ‡テシテ‡テシテ⑩テ⑩" into cd field "abortTo"wait 60play "Shonben"return 0exit DiceRollend ifend repeat--テ雲テ韻テ厩テ‡邃「テウテゥテ‡テクテュテ姪‡竕 put random (6) into item 1 of Dsset the icon of bg button 1 to "D" & item 1 of Dsset the loc of bg button 1 to random (16)-8+216,random (16)-8+163wait Wput random (6) into item 2 of Dsset the icon of bg button 2 to "D" & item 2 of Dsset the loc of bg button 2 to random (16)-8+267,random (16)-8+174wait Wput random (6) into item 3 of Dsset the icon of bg button 3 to "D" & item 3 of Dsset the loc of bg button 3 to random (16)-8+234,random (16)-8+191--テァ竕暗・窶榲‡テε雲テ韻テ厩テ‡邃「テ「テ津‡テˆput "216,267,234" into DBHput "163,174,191" into DBVput random (3) into RD  --テ‡ツォテ‡テε雲テ韻テ厩テ‡ツゥif random (3) >1 thenset the icon of bg button RD to "D" & random(6)+6wait W*2+random(W*4)+20--テ‡ツョテ‡窶ケテ‡竏づ‡ツサテ‡ツ「テ‡ツオテ‡ニ津‡窶 テ‡テ催‡ナ’if hilite of cd button "Omj" is true then--テ‡ツョテ‡窶ケテ‡竏づ‡ツサテ‡ツ「テ‡テε・ツッテ「ツ set the icon of bg button RD to 3013put RD+1 into RD2if RD2 is 4 then put 1 into RD2if cd field ("point" & PlyN) < 0 then--テッテ「テ‡テ佚‡邃「テァテサテ‡テ津‡竕暗‡ツ「テ‡テ暗‡竏†テ‡ツエテ‡テ陛・ツッテ「ツ テェ窶堙ォテ‚put RD2+1 into RD3if RD3 is 4 then put 1 into RD3if (item RD3 of Ds) < (item RD2 of Ds) then put RD3 into RD2end ifput item RD2 of Ds into item RD of Dsset the icon of bg button RD to "D" & item RD of Dsset the loc of bg button RD to random (16)-8+item RD of DBH,random (16)-8+item RD of DBVelse--テァ竕暗・窶榲‡テε雲テ韻テ厩テ‡邃「テウテゥテ‡テクテュテ姪‡竕 put random (6) into item RD of Dsset the icon of bg button RD to "D" & item RD of Dsset the loc of bg button RD to random (16)-8+item RD of DBH,random (16)-8+item RD of DBVend ifend if--テ雲テ韻テ厩テ‡テεュlテ‡ï」ソテッ]テ「テクテ‡ツオテ‡ニ津ッ窶佚‡竏‘return Anal(Ds)end DiceRoll--テ雲テ韻テ厩テ‡テεュlテ‡テεッ]テ「テク--テ①テ㈲テ⑶テ㈼テ⑦テア竅„--テ①テ㈲テ㈲テ㈲テ⑶テ㈼テ㈼テ㈼テ⑦テ云テ嘉ァテア竅„テ①テ㈲テ㈻テ㈶テ⑴テ㈳テ㈵テ㈼テ⑦テャツ。テゥテ--テ①" " + テ雲テ韻テ厩テ‡テεア竅„テ㈶テ臼テ運テ⑿テ・vテ㈳テ臼テ運テ⒀テ⑦テア竅„テ‡ツサテ‡ツオ--テ①テ⑿テ㈴テ⑦テ‡ツオテ‡テづ‡テ津‡笳甘‡テ’ テ‡テ• DiceRoll テャ窶。テ‡竕暗ィテ テウテケテ⒀function Anal Dsort items of Dput empty into item 1 of DDput item 1 of D & item 2 of D & item 3 of D into item 2 of DD--テ云テ嘉ァテア竅„if item 1 of D=item 2 of D and item 2 of D=item 3 of D thenput item 2 of DD into item 1 of DDreturn DDexit Analend if--テア竅„テ‡邃「テウテ淌‡ツ。テ‡ホゥif item 1 of D=item 2 of D thenput item 3 of D into item 1 of DDreturn DDexit Analend if--テア竅„テ‡邃「テウテ淌‡ツ。テ‡ホゥif item 2 of D=item 3 of D thenput item 1 of D into item 1 of DDreturn DDexit Analend if--テ⑾テ㈲テ㈻テ㈶テ⑾if item 2 of DD ="123" thenput "123" into item 1 of DDreturn DDexit Analend if--テ⑾テ㈳テ㈵テ㈼テ⑾if item 2 of DD ="456" thenput "456" into item 1 of DDreturn DDexit Analend if--テア竅„テ‡邃「テア竕・テ‡ツ「return DDend Anal</script>
  143. </background>
  144.